﻿Public Class f_pop_unidad
    Public unds As Integer = 0
    Private Sub f_pop_unidades_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub textBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles tb_unidades.KeyPress
        If Char.IsDigit(e.KeyChar) Then


            e.Handled = False
        Else

            e.Handled = True
        End If

    End Sub


    Private Sub b_aceptar_unidades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_aceptar_unidades.Click

        unds = tb_unidades.Text


    End Sub

    Private Sub b_cancelar_unidades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_cancelar_unidades.Click
        Me.Hide()

    End Sub
End Class